home *** CD-ROM | disk | FTP | other *** search
/ Asia X / Asia X.iso / pc / shared.dir / 00153.ls < prev    next >
Encoding:
Text File  |  1995-08-23  |  4.5 KB  |  195 lines
  1. on exitFrame
  2.   global g_doll_state, g_help_state, g_option_state, g_quit_state, g_auto_state, doll_auto, doll_right, doll_left, doll_help, doll_option, doll_quit
  3.   set newstate to the mouseCast
  4.   if newstate = doll_right then
  5.     if g_doll_state = 5 then
  6.       center_to_right()
  7.     end if
  8.     if g_doll_state = 1 then
  9.       left_to_center()
  10.       center_to_right()
  11.     end if
  12.     set g_doll_state to 9
  13.   end if
  14.   if newstate = doll_left then
  15.     if g_doll_state = 5 then
  16.       center_to_left()
  17.     end if
  18.     if g_doll_state = 9 then
  19.       right_to_center()
  20.       center_to_left()
  21.     end if
  22.     set g_doll_state to 1
  23.   end if
  24.   if not ((newstate = doll_right) or (newstate = doll_left)) then
  25.     if g_doll_state = 9 then
  26.       right_to_center()
  27.     end if
  28.     if g_doll_state = 1 then
  29.       left_to_center()
  30.     end if
  31.     set g_doll_state to 5
  32.   end if
  33.   if (newstate = doll_help) and (g_help_state = 4) then
  34.     help_open()
  35.     set g_help_state to 1
  36.   end if
  37.   if (newstate <> doll_help) and (g_help_state = 1) then
  38.     help_close()
  39.     set g_help_state to 4
  40.   end if
  41.   if (newstate = doll_option) and (g_option_state = 4) then
  42.     option_open()
  43.     set g_option_state to 1
  44.   end if
  45.   if (newstate <> doll_option) and (g_option_state = 1) then
  46.     option_close()
  47.     set g_option_state to 4
  48.   end if
  49.   if (newstate = doll_auto) and (g_auto_state = 4) then
  50.     auto_open()
  51.     set g_auto_state to 1
  52.   end if
  53.   if (newstate <> doll_auto) and (g_auto_state = 1) then
  54.     auto_close()
  55.     set g_auto_state to 4
  56.   end if
  57.   if (newstate = doll_quit) and (g_quit_state = 4) then
  58.     quit_open()
  59.     set g_quit_state to 1
  60.   end if
  61.   if (newstate <> doll_quit) and (g_quit_state = 1) then
  62.     quit_close()
  63.     set g_quit_state to 4
  64.   end if
  65.   go(the frame)
  66. end
  67.  
  68. on help_open
  69.   global Help3, Help2, Help1
  70.   set the castNum of sprite 9 to Help3
  71.   updateStage()
  72.   set the castNum of sprite 9 to Help2
  73.   updateStage()
  74.   set the castNum of sprite 9 to Help1
  75.   updateStage()
  76. end
  77.  
  78. on help_close
  79.   global Help4, Help3, Help2
  80.   set the castNum of sprite 9 to Help2
  81.   updateStage()
  82.   set the castNum of sprite 9 to Help3
  83.   updateStage()
  84.   set the castNum of sprite 9 to Help4
  85.   updateStage()
  86. end
  87.  
  88. on auto_close
  89.   global auto3, auto2, auto1
  90.   set the castNum of sprite 7 to auto3
  91.   updateStage()
  92.   set the castNum of sprite 7 to auto2
  93.   updateStage()
  94.   set the castNum of sprite 7 to auto1
  95.   updateStage()
  96. end
  97.  
  98. on auto_open
  99.   global auto4, auto3, auto2
  100.   set the castNum of sprite 7 to auto2
  101.   updateStage()
  102.   set the castNum of sprite 7 to auto3
  103.   updateStage()
  104.   set the castNum of sprite 7 to auto4
  105.   updateStage()
  106. end
  107.  
  108. on quit_close
  109.   global Quit3, Quit2, Quit1
  110.   set the castNum of sprite 10 to Quit3
  111.   updateStage()
  112.   set the castNum of sprite 10 to Quit2
  113.   updateStage()
  114.   set the castNum of sprite 10 to Quit1
  115.   updateStage()
  116. end
  117.  
  118. on quit_open
  119.   global Quit4, Quit3, Quit2
  120.   set the castNum of sprite 10 to Quit2
  121.   updateStage()
  122.   set the castNum of sprite 10 to Quit3
  123.   updateStage()
  124.   set the castNum of sprite 10 to Quit4
  125.   updateStage()
  126. end
  127.  
  128. on option_close
  129.   global Option3, Option2, Option1
  130.   set the castNum of sprite 11 to Option3
  131.   updateStage()
  132.   set the castNum of sprite 11 to Option2
  133.   updateStage()
  134.   set the castNum of sprite 11 to Option1
  135.   updateStage()
  136. end
  137.  
  138. on option_open
  139.   global Option4, Option3, Option2
  140.   set the castNum of sprite 11 to Option2
  141.   updateStage()
  142.   set the castNum of sprite 11 to Option3
  143.   updateStage()
  144.   set the castNum of sprite 11 to Option4
  145.   updateStage()
  146. end
  147.  
  148. on center_to_left
  149.   global Doll4, Doll3, Doll2, Doll1
  150.   set the castNum of sprite 8 to Doll4
  151.   updateStage()
  152.   set the castNum of sprite 8 to Doll3
  153.   updateStage()
  154.   set the castNum of sprite 8 to Doll2
  155.   updateStage()
  156.   set the castNum of sprite 8 to Doll1
  157.   updateStage()
  158. end
  159.  
  160. on center_to_right
  161.   global Doll9, Doll8, Doll7, Doll6
  162.   set the castNum of sprite 8 to Doll6
  163.   updateStage()
  164.   set the castNum of sprite 8 to Doll7
  165.   updateStage()
  166.   set the castNum of sprite 8 to Doll8
  167.   updateStage()
  168.   set the castNum of sprite 8 to Doll9
  169.   updateStage()
  170. end
  171.  
  172. on right_to_center
  173.   global Doll8, Doll7, Doll6, Doll5
  174.   set the castNum of sprite 8 to Doll8
  175.   updateStage()
  176.   set the castNum of sprite 8 to Doll7
  177.   updateStage()
  178.   set the castNum of sprite 8 to Doll6
  179.   updateStage()
  180.   set the castNum of sprite 8 to Doll5
  181.   updateStage()
  182. end
  183.  
  184. on left_to_center
  185.   global Doll5, Doll4, Doll3, Doll2
  186.   set the castNum of sprite 8 to Doll2
  187.   updateStage()
  188.   set the castNum of sprite 8 to Doll3
  189.   updateStage()
  190.   set the castNum of sprite 8 to Doll4
  191.   updateStage()
  192.   set the castNum of sprite 8 to Doll5
  193.   updateStage()
  194. end
  195.